home *** CD-ROM | disk | FTP | other *** search
/ Gekkan Dennou Club 145 / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan).7z / Gekkan Dennou Club - 2000.6 Vol. 145 (Japan) (Track 1).bin / games / spassion / knowhow.lzh / ノウハウ / option2.bas < prev    next >
BASIC Source File  |  1993-10-31  |  2KB  |  53 lines
  1. char s
  2. int  i,pointer
  3. int  jx=128,jy=128
  4. /*---------[ ｵﾌﾟｼｮﾝﾖｳ ﾊﾞｯﾌｧ ]---------------------------
  5. dim char opt_x(255),opt_y(255)
  6. /*---------[ ｶｸｼｭｼｮｷｶ ]---------------------------------
  7. scr_init()
  8. for i=0 to 255
  9.   opt_x(i)=jx:opt_y(i)=jy
  10. next
  11. /*
  12. /*######################################################
  13. /*#                    ＭＡＩＮ                        #
  14. /*######################################################
  15. while -1
  16. /*----------[ ﾎﾝﾀｲﾉ ｲﾄﾞｳ ]------------------------------
  17. s=stick(1)
  18. if s=9 or s=6 or s=3 then jx=jx+4 and 255
  19. if s=7 or s=4 or s=1 then jx=jx-4 and 255
  20. if s=1 or s=2 or s=3 then jy=jy+4 and 255
  21. if s=7 or s=8 or s=9 then jy=jy-4 and 255
  22. sp_set(0,jx,jy,&H106,3)
  23. /*----------[ ｵﾌﾟｼｮﾝ ｼｮﾘ ]-------------------------------
  24. pointer=pointer+1 and 255    /* ﾎﾟｲﾝﾀｰｲﾄﾞｳ
  25. opt_x(pointer)=jx:opt_y(pointer)=jy
  26. /*  ｵﾌﾟｼｮﾝ ﾋｮｳｼﾞ
  27. for i=1 to 15
  28.   sp_set(i,opt_x(pointer-i*8 and 255),opt_y(pointer-i*8 and 255),&H228,3)
  29. next
  30. /*======================================================
  31. endwhile
  32. end
  33. /*
  34. /*
  35. /*######################################################
  36. /*   ＳＣＲ＿ＩＮＩＴ（）
  37. /*
  38. /* scr_init()
  39. /* ｶﾞﾒﾝｦ GAMEｾﾝﾖｳﾆ ｼｮｷｶｽﾙ｡
  40. /*======================================================
  41. func scr_init()
  42. int i
  43. /*-------------------------
  44.   screen 0,2,1,1
  45.   sp_on(0,127)
  46.   for i=0 to 127:sp_set(i,0,0,0,3):next
  47.   sp_disp(1)
  48.   bg_set(0,0,1):bg_scroll(0,0,0)
  49.   bg_set(1,1,1):bg_scroll(1,0,0)
  50.   bg_fill(0,0):bg_fill(1,0)
  51.   mouse(4):mouse(2)
  52. endfunc
  53.